home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / lists / mint / l_1199 / 1067 < prev    next >
Encoding:
Internet Message Format  |  1994-08-27  |  5.7 KB
  1. From: Stephen Usher <Stephen.Usher@earth.ox.ac.uk>
  2. Subject: load average patches for MiNT 1.10 + patches
  3. Date: Tue, 22 Feb 1994 21:35:25 +0000 (GMT)
  4. Mime-Version: 1.0
  5.  
  6. Here's the latest version of my uptime and load average patch for MiNT. The
  7. patch is relative to version 1.10 with most of the patches from the last
  8. week added.
  9.  
  10. This version now uses the 200Hz interrupt for timing so should keep the
  11. correct time on any machine with whatever monitor. The patches affect dos.c,
  12. intr.spp and proc.c and adds loadave.h. I'm also including below definitions
  13. for mintbind.h.
  14.  
  15. By the way, this gives MiNT a 1 second internal timer event if anyone wants
  16. to use it.
  17.  
  18. The load averages themselves are unsigned longs which have to be divided by
  19. 2048 to give the correct average. ie.
  20.  
  21.     load average = value / 2048
  22.  
  23. The returned uptime is in seconds since boot.
  24.  
  25. Steve
  26.  
  27. <-- mintbind.h -->
  28.  
  29. long Suptime(unsigned long *uptime, unsigned long loadaverage[3]);
  30. /* GEMDOS 0x13f */
  31. #define Suptime(uptime, avenrun)                \
  32.         trap_1_wll(0x13f, (long)(uptime), (long)(avenrun))
  33.  
  34. Here come the patches...
  35. *** ../mint.pchd/loadave.h    Tue Feb 22 20:47:58 1994
  36. --- loadave.h    Mon Feb 21 21:50:00 1994
  37. ***************
  38. *** 0 ****
  39. --- 1,11 ----
  40. + #define TICKS_PER_TOCK        200
  41. + #define TOCKS_PER_SECOND    1
  42. + 
  43. + #define SAMPS_PER_MIN    12
  44. + #define SAMPS_PER_5MIN    SAMPS_PER_MIN * 5
  45. + #define SAMPS_PER_15MIN    SAMPS_PER_MIN * 15
  46. + 
  47. + #define LOAD_SCALE 2048
  48. + 
  49. + extern unsigned long uptime;
  50. + extern unsigned long avenrun[3];
  51. *** ../mint.pchd/dos.c    Tue Feb 22 20:42:24 1994
  52. --- dos.c    Mon Feb 21 21:52:52 1994
  53. ***************
  54. *** 468,473 ****
  55. --- 468,493 ----
  56.   }
  57.   
  58.   /*
  59. +  * Suptime: get time in seconds since boot and current load averages from
  60. +  * kernel.
  61. +  */
  62. + 
  63. + #include "loadave.h"
  64. + 
  65. + long ARGS_ON_STACK
  66. + s_uptime(cur_uptime, loadaverage)
  67. +     unsigned long *cur_uptime;
  68. +     unsigned long loadaverage[3];
  69. + {
  70. +     *cur_uptime = uptime;
  71. +     loadaverage[0] = avenrun[0];
  72. +     loadaverage[1] = avenrun[1];
  73. +     loadaverage[2] = avenrun[2];
  74. + 
  75. +     return 0;
  76. + }
  77. + 
  78. + /*
  79.    * routine for initializing DOS
  80.    *
  81.    * NOTE: before adding new functions, check the definition of
  82. ***************
  83. *** 601,604 ****
  84. --- 621,625 ----
  85.       dos_tab[0x13c] = s_alert;
  86.       dos_tab[0x13d] = t_malarm;
  87.       dos_tab[0x13e] = p_sigintr;
  88. +     dos_tab[0x13f] = s_uptime;
  89.   }
  90. *** ../mint.pchd/intr.spp    Tue Feb 22 20:42:50 1994
  91. --- intr.spp    Mon Feb 21 22:27:40 1994
  92. ***************
  93. *** 35,43 ****
  94. --- 35,52 ----
  95.       XREF    _preempt
  96.       XREF    _in_kernel
  97.   
  98. +     XREF    _calc_load_average
  99. +     XREF    _uptimetick
  100. + 
  101.   ; AKP: this code is hit once every 5ms; it updates the time fields of curproc.
  102.   _mint_5ms:
  103.       move.l    a0,-(sp)
  104. +     tst.l    _uptimetick
  105. +     bne.s    L_no_uptime
  106. +     jsr    L_uptime_update
  107. + L_no_uptime:
  108. +     lea    _uptimetick,a0
  109. +     subq.l    #1,(a0)
  110.       move.l    _curproc,a0
  111.       tst.w    _in_kernel
  112.       bne.s    L_systime
  113. ***************
  114. *** 53,58 ****
  115. --- 62,72 ----
  116.       move.l    _old_5ms+8,-(sp)
  117.       rts
  118.   
  119. + L_uptime_update:
  120. +     movem.l    d0-d2/a0-a2,-(sp)    ; save C registers
  121. +     jsr    _calc_load_average
  122. +     movem.l    (sp)+,d0-d2/a0-a2
  123. +     rts
  124.   _mint_timer:
  125.       movem.l    d0-d2/a0-a2,-(sp)    ; save C registers
  126.       jsr    _timeout
  127. *** ../mint.pchd/proc.c    Tue Feb 22 20:42:28 1994
  128. --- proc.c    Mon Feb 21 22:24:18 1994
  129. ***************
  130. *** 655,660 ****
  131. --- 655,672 ----
  132.   #define qname(x) ((x >= 0 && x < NUM_QUEUES) ? qstring[x] : "unkn")
  133.   #endif
  134.   
  135. + #include "loadave.h"
  136. + 
  137. + unsigned long uptime = 0;
  138. + unsigned long avenrun[3] = {0,0,0};
  139. + unsigned long uptimetick;
  140. + unsigned long number_running;
  141. + unsigned long one_min_ptr = 0, five_min_ptr = 0, fifteen_min_ptr = 0;
  142. + unsigned long sum1 = 0, sum5 = 0, sum15 = 0;
  143. + unsigned char one_min[SAMPS_PER_MIN];
  144. + unsigned char five_min[SAMPS_PER_5MIN];
  145. + unsigned char fifteen_min[SAMPS_PER_15MIN];
  146. + 
  147.   void
  148.   DUMPPROC()
  149.   {
  150. ***************
  151. *** 661,666 ****
  152. --- 673,683 ----
  153.   #ifdef DEBUG_INFO
  154.       PROC *p = curproc;
  155.   
  156. +     FORCE("Uptime: %ld seconds Loads: %ld %ld %ld Processes running: %ld",
  157. +         uptime,
  158. +         (avenrun[0]*100)/2048 , (avenrun[1]*100)/2048, (avenrun[2]*100/2048),
  159. +          number_running);
  160. + 
  161.       for (curproc = proclist; curproc; curproc = curproc->gl_next) {
  162.           FORCE("state %s PC: %lx BP: %lx",
  163.           qname(curproc->wait_q),
  164. ***************
  165. *** 669,672 ****
  166. --- 686,747 ----
  167.       }
  168.       curproc = p;        /* restore the real curproc */
  169.   #endif
  170. + }
  171. + 
  172. + unsigned long gen_average(sum, cur_load, load_array, ptr, max_size)
  173. + long *sum;
  174. + unsigned long cur_load;
  175. + unsigned char load_array[];
  176. + unsigned long ptr;
  177. + int max_size;
  178. + {
  179. +     unsigned long retval;
  180. +     long old_load, new_load;
  181. + 
  182. +     old_load = (long)load_array[ptr];
  183. + 
  184. +     new_load = (long)cur_load;
  185. +     load_array[ptr] = (char)new_load; 
  186. + 
  187. +     *sum += ((new_load - old_load) * LOAD_SCALE);
  188. + 
  189. +     retval = (unsigned long)(*sum / max_size);
  190. + 
  191. +     return retval;
  192. + }
  193. + 
  194. + void calc_load_average()
  195. + {
  196. +     PROC *p;
  197. + 
  198. +     uptime++;
  199. +     uptimetick = 200;
  200. + 
  201. +     if (uptime % 5) return;
  202. + 
  203. +     number_running = 0;
  204. +     
  205. +     for (p = proclist; p; p = p->gl_next)
  206. +         if (p != rootproc)
  207. +             if ((p->wait_q == 0) || (p->wait_q == 1))
  208. +                 number_running++;
  209. + 
  210. +     avenrun[0] = gen_average(&sum1, number_running,
  211. +         one_min, one_min_ptr++, SAMPS_PER_MIN);
  212. + 
  213. +     if (one_min_ptr == SAMPS_PER_MIN)
  214. +         one_min_ptr = 0;
  215. + 
  216. +     avenrun[1] = gen_average(&sum5, number_running,
  217. +         five_min, five_min_ptr++, SAMPS_PER_5MIN);
  218. + 
  219. +     if (five_min_ptr == SAMPS_PER_5MIN)
  220. +         five_min_ptr = 0;
  221. + 
  222. +     avenrun[2] = gen_average(&sum15, number_running,
  223. +         fifteen_min, fifteen_min_ptr++, SAMPS_PER_15MIN);
  224. + 
  225. +     if (fifteen_min_ptr == SAMPS_PER_15MIN)
  226. +         fifteen_min_ptr = 0;
  227. + 
  228.   }
  229.  
  230. -- 
  231. ---------------------------------------------------------------------------
  232. Computer Systems Administrator, Dept. of Earth Sciences, Oxford University.
  233. E-Mail: steve@uk.ac.ox.earth (JANET) steve@earth.ox.ac.uk (Internet).
  234. Tel:- Oxford (0865) 282110 (UK) or +44 865 282110 (International).
  235.